home *** CD-ROM | disk | FTP | other *** search
/ .net (Turkey) 1998 March / .net Internet Dergisi - CD 5.iso / mac / CON_BM / 00287_Script_287 < prev    next >
Text File  |  1997-11-07  |  2KB  |  60 lines
  1. --Reset video bit
  2. on ResetVideo
  3.   global gCurrentMoviePlaying, gCurrentMovieOrigHeight, gCurrentMovieOrigWidth,      gCurrentMovieOrigPosX, gCurrentMovieOrigPosY 
  4.   
  5.   set howLongVideo = the duration of member gCurrentMoviePlaying
  6.   if the movietime of sprite 48 >= howLongVideo then
  7.     set the name of member (gCurrentMoviePlaying + 20) to ""
  8.     set the name of member 119 to "NameofFieldToControl" 
  9.     
  10.     --    set the visible of sprite 48 to false
  11.     --    set the visible of sprite 30 to false
  12.     --    updatestage
  13.     
  14.     if the width of sprite 48 = 400 then
  15.       set the visible of sprite 48 to false
  16.       set the visible of sprite 30 to false
  17.       updatestage
  18.       
  19.       set the locH of sprite 30 to 236
  20.       set the locV of sprite 30 to -1
  21.       set the membernum of sprite 30 to the number of member "smallmovie" of castLib "shared"
  22.       
  23.       repeat with i = 1 to 6
  24.         set origloch = the loch of sprite (39 + i)
  25.         set origlocv = the locv of sprite (39 + i)
  26.         set the loch of sprite (39 + i) = (origloch + 1)
  27.         set the locv of sprite (39 + i) = (origlocv - 67)
  28.         updatestage  
  29.       end repeat
  30.       
  31.       --      move volume bar + knob
  32.       set origloch = the loch of sprite 31
  33.       set origlocv = the locv of sprite 31
  34.       set the loch of sprite 31 = (origloch + 82)
  35.       set the locv of sprite 31 = (origlocv - 60)
  36.       set origloch = the loch of sprite 32
  37.       set origlocv = the locv of sprite 32
  38.       set the loch of sprite 32 = (origloch + 82)
  39.       set the locv of sprite 32 = (origlocv - 60)
  40.       
  41.       
  42.       
  43.       
  44.       
  45.       set the height of sprite 48 to gCurrentMovieOrigHeight
  46.       set the width of sprite 48 to gCurrentMovieOrigWidth
  47.       
  48.       set the loch of sprite 48 to gCurrentMovieOrigPosX
  49.       set the locv of sprite 48 to gCurrentMovieOrigPosY
  50.       set the visible of sprite 48 to true
  51.       set the visible of sprite 30 to true
  52.       updatestage
  53.       
  54.     end if
  55.     puppetsprite 48, false
  56.     puppetsprite 30, false 
  57.     set gCurrentMoviePlaying  = 99  
  58.   end if 
  59.   
  60. end ResetVideo